home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ Network Login Text.xpl
< prev
next >
Wrap
Text File
|
1999-06-13
|
2KB
|
62 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="1"
"COUNT"="2"
"UIPATH"="Network\Login\Login Window"
"NAME"="Login Window Text"
"VERSION"="1.42"
"LANGUAGE"="VBScript"
"TEXT 1"="Login text"
"TEXT 2"="Window Caption"
"DESCRIPTION 1"=""Login text" will be displayed when the user is about to login, above the fields "Username" and "Password"."
"DESCRIPTION 2"="You can use this settings to provide more details then the common message "Enter a login and password that is valid on this system"."
"DESCRIPTION 3"=""Window Caption" will be displayed right beside the original caption of the login window."
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
v1="LogonPrompt"
v2="Welcome"
Sub Plugin_Initialize
if RegPathExists(sp) then
s=RegReadValue(sp & v1)
SetUIElement 1,s
s=RegReadValue(sp & v2)
SetUIElement 2,s
else
Disable
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
s=GetUIElement(1)
if Len(s)>0 then
Call RegWriteValue(sp&v1,s,1)
else
s=RegReadValue(sp&v1)
if IsEmpty(s)=false then Call RegDeleteValue(sp&v1)
end if
s=GetUIElement(2)
if Len(s)>0 then
'automatically add a space
s=" " & ltrim(s)
Call RegWriteValue(sp&v2,s,1)
else
s=RegReadValue(sp&v2)
if IsEmpty(s)=false then Call RegDeleteValue(sp&v2)
end if
Logoff
End Sub
Sub Plugin_Terminate
End Sub